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INTRODUCTION 


This instant outlines the FORTRAN Extended language (version 4.0) 
for the CONTROL DATA® CYBER 70/Models 72, 73 and 74, and 
6200,6400, 6500, 6600 and 6700 computers, and FORTRAN Extended 
(version 2.0) for the CONTROL DATA CYBER 70/Model 76, 7600, 
7601-1 and 761X computers. Detailed information is contained in the 
FORTRAN Extended Reference Manual Publication No. 60305600 A. 
FORTRAN Extended is designed to comply with American National 
Standards Institute FORTRAN language. 

The FORTRAN compiler operates in conjunction with version 3.0 COM¬ 
PASS assembly language processor under control of the 6000 SCOPE 
operating system (version 3.4) and 7000 SCOPE operating system (ver¬ 
sion 2.0). 

The following new features are included in FORTRAN Extended: 
LEVEL statement 
IMPLICIT statement 
Hollerith strings in output lists 
Expressions in output lists 
Quote delimited Hollerith strings 
Exclusive OR function 
Messages on STOP and PAUSE statements 
Line limit on output file at execution time 
Syntax scan only during compilation 
Program listings suppressed but reference map produced 
Rewrite in place, mass storage 

Multiple systems texts and local texts for intermixed COMPASS 
programs 

Throughout this document, CONTROL DATA extensions to the FOR¬ 
TRAN language are indicated by blue type. Otherwise, FORTRAN 
Extended conforms to ANSI standards. 

Information which applies only to the CONTROL DATA CYBER 70/ 
Model 76 and 7600 computers is indicated by red type. 

Information which applies only to the CONTROL DATA CYBER 70/ 
Models 72, 73 and 74, and 6000 Series computers is indicated by green 
type. 
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LANGUAGE ELEMENTS 


SYMBOLIC NAMES 

Symbolic names are 1—7 alphanumeric characters; the first must be 
alphabetic. 


FORTRAN CHARACTER SET 

Alphabetic: AtoZ | 

/ alphanumeric 
Numeric: 0 to 9 ) 


Special: 


equal 

plus 

minus 

asterisk 

slash 

left parenthesis 


) right parenthesis 

, comma 

decimal point 
$ dollar sign 
blank 

=£ or 1 quote 


Any character of the SCOPE set may be used in Hollerith information 
and comments. Blanks are significant only in Hollerith fields. 


FORTRAN STATEMENTS 


Column 1 

C or $ or * indicates comment line 

1-2 

C$ indicates DEBUG statement 

1-5 

Statement label 

6 

Any character other than blank or zero de¬ 
notes continuation, except on comment cards. 

A DEBUG continuation card must contain C$ 
in columns 1 and 2. 

7-72 

Statement 

73-80 

Identification field, not processed by compiler 


Statements may be labeled by an integer constant in the range 1-99999. 
If a C, $ or * appears in column 1, the remainder of the card is ignored 
by the compiler, but printed with the source listing as a comment. 

$ may be used to separate multiple statements on a card with all state¬ 
ments except FORMAT, OVERLAY or debugging statements. 
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A character other than zero or blank in column 6 signifies continuation 
from the preceding card. 

Statements are written in columns 7—72; blanks are ignored except in 
Hollerith fields. 

Columns 73—80 may contain identification and serial numbers which 
are ignored by the compiler but printed with the program listing. 

All 80 columns may be used for data input. 


CONSTANTS 


Constants 

Form 

Examples 

Integer 

n 1 n 2 ■ • ■ n m 

2 


1<m<18 


247 


Range: - 

(2 48 —1) to 2 48 —1 



Integer addition and subtraction 
results may range from —(2 59 —1) 

31456932 


to 2 59 —1 

Integers used as a DO 



index or as a subscript must be 
in the range 2 17 —2. 


Real 

n.n .n n. 

n.nE±s .nE±s n.E±s nE±s 



n 

Coefficient^ 15 

7.5 



decimal digits 

3.22 




42.El 


E±s 

Exponent 

314.E05 

700.E—2 


s 

Base TO scale factor 

.5 




0. 


Range 

10- 293 to 10 +322 



Accurate to approximately 15 
decimal digits 



3 






Constants 

Form 

Examples 

Double 

n.nD±s ,nD±s n.D±s nD±s 


Precision 

n Coefficient < 29 



decimal digits 

5.834D2 

7.D2 


D+s Exponent 

9.2D03 

14.D-5 


s Base 10 scale factor 

3120D4 


Range 10~ 293 to 10 +322 

1 .DO 


Accurate to approximately 

29 decimal digits 


Complex 

(rl ,r2) 

(1 .,7.54) 


rl Real part 

(—2.1 El ,3.24) 


r2 Imaginary part 

(0.-1.) 


Each part has same range as 
a real constant 

(4.0,5.0) 

Octal 

n 1 • n m B 

7777777777B 


1<m<20 

525252B 

Hollerith 

nHf 



nRf 



nLf 






1<n<10 in expression 



1<n<150 in FORMAT 



statement 



H left justified with blank fill 

6HABCDEF 


R right justified with binary 
zero fill 

7RJUSTI FY 


L left justified with binary 
zero fill 

7LTHE END 
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Constants 

Form 

Examples 


A Hollerith string delimited by 
paired symbols =£ =£ can be used 
anywhere the H form of the 
Hollerith constant can be used. 

For example: 

IF(V.EQ.^YES^) GOTO 20 

PRINT 1,# SORT = =£ ,SQRT(.5) 

1 FORMAT (A10,F10.2) 

^ABCDEF# 

Logical 

» 

.TRUE, or .T. stored as minus 

one 

.FALSE, or .F. stored as all 
zero bits (+0) 

LOGICAL XI,Z2 
XI = .TRUE. 

Z2 = .FALSE. 


VARIABLES 

1—7 alphanumeric characters; the first must be alphabetic. 

A variable not defined in a type declaration is real if the first character 
of the symbolic name is any letter other than l,J,K,L,M,N and if no 
IMPLICIT statement appears in that program unit. 

Implied Typing of Variables 


A-H, O-Z 

Real 

1—N 

Integer 


Variables 

Form 

Examples 

Integer 

Range-(2 5a -1) to 2 59 -1. 

As subscript or index of a DO 
statement, maximum value is 
2 17 —2. As a result of multipli¬ 
cation or division or conversion 
from real to integer, or integer 
to real, maximum value is 

248 — 1. 

ITEM 

JSUM 

KOOL 

INTEGER X 
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Variables 

Form 

Examples 

Real 

Range 1CT 293 to 10 +322 , 

AVAR 


approximately 15 signi- 

SUM 


ficant digits. 

TUF 

BETA 

REAL 1 

Double 

Must be defined explicitly 

DOUBLE PRECISION 

Precision 

in type declaration. Range 

*OMEGA,X,B 


10- 293 to 10 +322 , approxi¬ 
mately 29 significant digits. 
Occupies two words in 
storage. 

DOUBLE X,Y 

Complex 

Must be defined explicitly 

COMPLEX A,D 


in type declaration. Occupies 
two words in storage; each 
word contains a number in 

real variable format and 
each number can range 
/from 10- 293 to 10 +322 

COMPLEX P2 

Logical 

Must be defined explicitly in 

LOGICAL L3,C 


type declaration. A logical 
variable with positive zero 
value is false. A logical vari¬ 
able with value minus one 

LOGICAL L2,R 


is true. 







ARRAYS 


An array name may have up to three subscripts. Subscripts may be any 
valid arithmetic expressions; zero and negative subscripts are not al¬ 
lowed. A non-integer subscript value is truncated to integer. If the num¬ 
ber of subscripts in a reference is less than the declared dimensions of 
the array, the compiler assumes a value of one for missing subscripts. 

Examples: 


(l,J) (R+3.5*A,B) (l+3,J+3,2*K+1) 

To find the location of an element in the linear sequence of storage 
locations: 


Number of 
Dimensions 

Array 

Dimension 

Subscript 

Location of 
Element Relative 
to Starting 
Location 

1 

ALPHA(K) 

ALPHA(k) 

(k-l)xE 

2 

ALPHA(K,M) 

ALPHA(k,m) 

(k-1+Kx(m-1 ))xE 

3 

ALPHA(K,M,N) 

ALPHA(k,m,n) 

(k-1+Kx(m-1+Mx 

(n-1)))xE 


K, M, and N are dimensions of the array. 

k, m, and n are actual subscript values of the array. 

1 is subtracted from each subscript value because the subscript starts 
with 1, not 0. 

E is length of the element. For real, logical, and integer arrays, E = 1. 
For complex and double precision arrays, E = 2. 
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STATEMENT FORMS 


The following symbols are used in the descriptions of FORTRAN Ex-^ 
tended statements: ■ 


v variable or array element 

sn statement label 

iv integer variable 

name symbolic name 

u input/output unit: 

1- or 2-digit decimal integer constant 
integer variable with value of: 1—99 or display code 
file name 

fn format designator 

iolist input/output list 

Other forms are defined individually in the following list of statements. 


Assignment Statements 


Form 

v = arithmetic expression 

logical v=logical or relational 

expression 

v = masking expression 

MULTIPLE ASSIGNMENT 
v 1 = v 2 = . . . v n = expression 

Control Statements 

GO TO sn 

GO TO (sn 1 , . . . , sn m ) , iv 

GO TO (sni, . . . , sn m ) iv 
GO TO (sn 1 , . . . , sn m ) , expressic 


Examples 

A = B + C 

LOGICAL L,M,N 
L = M .AND.N 

CAT = 5252B .OR. Z 

X = Y = Z = (10+ B)/SUM(1) 

GO TO 30 
GOTO (1,4,7,2), N 
GO TO (3,6,10,1) J 
GOTO (1,2,9,4), A + B 
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. 


Form 

Examples 

GO TO (sn 1 , . . . , sn m ) expression 

GO TO (3,4,5,6) N + J 

GO TO iv,(sn 1 , . . . , sn m ) 

GO TO LSWITCH, (10,20,30,40) 

GO TO iv (sn 1 , . . . , sn m ) 

GO TO NEXT (1,2,3,4) 

ASSIGN sn TO iv 

ASSIGN 10 TO LSWITCH 


IF (arithmetic or masking expression) sn 1 ,sn 2 ,sn 3 

| IF (I—N) 3,4,6 

IF (arithmetic or masking expression) sn 1 ,sn 2 

| IF (l*Y*K) 100, 200 

IF (logical or relational expression) stat 


IF (logical or relational expression) 

DO sn iv = m 1 .m^nrig 
DO sn iv = m 1 ,m 2 
sn CONTINUE 
PAUSE 
PAUSE n 

PAUSE *c . . . c* . 

STOP 
STOP n 
STOP #=c . . . 

END 


IF (P.AND.Q) RES = 7.2 
i| ,sn 2 

IF (K.EQ. 100) 60,70 
DO 100 I = 1,10,2 
DO 2 J= 1,5 
100 CONTINUE 
PAUSE 
PAUSE 2 

PAUSE =£ CHANGE TAPE ± 

STOP 
STOP 25 

STOP END OF RUN i= 

END 


n string of 1—5 octal 

digits 

c . . . c string of 1—70 
characters 
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Type Declaration 

Type specifications can be dimensioned. 


Form 

Examples 

INTEGER name,, . . . ,name p 

INTEGER A,B,C(10) 

TYPE INTEGER name,, . . . ,name n 

TYPE INTEGER X,Y,N 

REAL name,, . . . ,name n 

REAL NEXT,X(5) 

TYPE REAL name,, . . . ,name n 

TYPE REAL N,J,CAT 

COMPLEX name,, . . . ,name p 

COMPLEX CC,J 

TYPE COMPLEX name,,. . . ,name n 

TYPE COMPLEX NON,Z(3) 


DOUBLE PRECISION name.,,. . . ,name n 


DOUBLE name,,. . . ,name n 


DOUBLE PRECISION DP1,DP2 
DOUBLE DP3 


TYPE DOUBLE PRECISION CAT,DOG 


TYPE DOUBLE name,, . . . ,name n 
LOGICAL name,, . . . ,name n 
TYPE LOGICAL name,, . . . ,name n 
IMPLICIT type, (ac), . . . ,type n (ac) 


TYPE DOUBLE HEN,DUCK 
LOGICAL L1,L2 
TYPE LOGICAL LL,LN 
IMPLICIT REAL (l-N) 


(ac) is a single alphabetic character or range of characters in alpha¬ 
betic sequence represented by the first and last character separated 
by a minus sign. 


External Declaration 

EXTERNAL name,, . . . ,name ( 
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EXTERNAL ABS 






DIMENSION name 1 (d.,) , . . . ,name n (d p ) 

I DIMENSION SUM (10) 


dj array declarator, one to three integer constants; or in a sub¬ 

program, one to three integer variables 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or 

LOGICAL 

COMMON v 1 , . . . ,v n COMMON A,B,C 

COMMON/blkname 1 A/.|,. . . ,v p . . . /blkname n /v 1 , . . . ,v n 

COMMON/BLK/D,E,F/CAT/X,Y,Z(10) 

COMMON// v 1f . . . ,v n COMMON//NEXT,JAY(3) 

blkname symbolic name 0 r 1—7 d gits 
// blank common 

DATA vlist 1 /dlist 1 /, . . . ,vlist n /dlist n / 

DATA A,B,C/3.,27.5,5.0/ 

DATA (var=dlist) , . . . , (var=dlist) DATA (X=3.),(Y=5.) 

var variable, array element, array name or implied DO list 
vlist list of array names, array elements, or variable names, sep¬ 
arated by commas 

dlist one or more of the following forms separated by commas: 

constant 
(constant list) 
rf*constant 
rf*(constant list) 
rf(constant list) 

constant list list of constants separated by commas 

rf integer constant. The constant or constant 

list is repeated the number of times indicated 
by rf 
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Form 


Examples 


EQUIVALENCE (v 1 .v n ).(v 1 _ f v n ) 

' EQUIVALENCE (N,J),(X,Y) 


LEVEL n, a 1 , . . . ,a p 

n unsigned integer 1, 2 or 3 
a variable or array name 

Main Programs 

PROGRAM name (file.,, . . . ,file n 
PROGRAM name 

Subprograms 

FUNCTION name (p,.p n ) 


LEVEL 3,X,Y,Z(3) 


PROGRAM A( IN PUT,OUTPUT) 
PROGRAM B 

FUNCTION GRATER(A,B) 


type FUNCTION name (p,_,p n ) REAL FUNCTION D(X,Y) 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or 
LOGICAL 


SUBROUTINE name (p,.p n ) 

SUBROUTINE name 


SUBROUTINE X(C,D,E) 
SUBROUTINE PGM 


SUBROUTINE name (p,.p n ), RETURNS (b,_,b m ) 

SUBROUTINE SUB(X,Y), RETURNS (M,N) 

SUBROUTINE name,RETURNS (b,!_b m ) 

SUBROUTINE SUB2,RETURNS(J,K,L) 


Entry Point 

ENTRY name 

Statement Functions 

name (p,,. . . ,p n ) = expression 


ENTRY BOX 


ADD(X,Y,C,D) = X+Y+C+D 
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Subprogram Control Statements 


Form 

Examples 

CALL name 


CALL JIM 

CALL name (p 1 , . 

• • ,P n > 

CALL JIM (A,B) 


CALL name (p.,, . . . ,p n ),RETURNS (b.,, . . . ,b m ) 

CALL JOHN (X,Y),RETURNS (N,K) 


CALL name,RETURNS (b 1f . . . ,b m ) 



CALL SUB4,RETURNS (J,K,I) 

RETURN 

RETURN 

RETURN i 

RETURN M 

i a dummy argument in 

a RETURNS list 


Specification Subprograms 

BLOCK DATA 

BLOCK DATA 

BLOCK DATA name 

BLOCK DATA BD3 


Input/Output 

PRINT fn,iolist 

PRINT 4, A,B,N 

PRINT fn 

PRINT 20 

PUNCH fnjolist 

PUNCH 2, X,Y,Z 

PUNCH fn 

PUNCH 30 

WRITE (u,fn) iolist 

WRITE (4,27) X,Y,Z 

WRITE (u,fn) 

WRITE (2,30) 

WRITE (u) iolist 

WRITE (3) A,B,C 

WRITE (u) 

WRITE (6) 

READ fn,iolist 

READ 100, A,B,C 
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Form 

Examples 

READ fn 

READ 50 

READ (u,fn) iolist 

READ (5,100) X,Y,Z 

READ (u,fn) 

READ (5,100) 

READ (u) iolist 

READ (3) JN,AB 

READ (u) 

READ (5) 

BUFFER IN (u,p) (a'b) 

BUFFER IN (1,1 )(R(1),R(512)) 

BUFFER OUT(u,p) (a,b) 

BUFFER OUT(1,J) (B(M),B(N)) 


a first word of data block to be transferred 


b last word of data block to be transferred 

p integer constant or integer variable 

zero = even parity, one = odd parity 


NAMELIST/group name.,/a.,, . . . ,a n / . . . /group name n /a.,, . . . ,a n 


READ (u,group name} 
WRITE (u,group name) 
READ group name 
PRINT group name 
PUNCH group name 


NAMELIST/SHIP/11,12,A,B 
READ {5,SHIP) 

WRITE (6,SHIP) 

READ SHIP 
PRINT SHIP 
PUNCH SHIP 


aj array names or variables 

group name symbolic name identifying the group a.,, . . . ,a n 


Infernal Transfer of Data 

ENCODE (c,fn,v) iolist ENCODE (40,1,ALPHA) A,B,C 

DECODE (c,fn,v) iolist DECODE (77,17,CARD) INK 

v starting location of record; variable or array name 

c length of record in characters; unsigned integer con¬ 

stant or simple integer variable 
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File Manipulation 


Form 

Examples 

REWIND u 

REWIND 3 

BACKSPACE u 

BACKSPACE LUN 

ENDFILE u 

ENDFILE 4 


Format Specification 

sn FORMAT (fs 1 .fs n ) 100 FORMAT (I6,F7.3,2I4) 

fsj one or more field specifications separated by commas 

and/or grouped by parentheses 

Data Conversion 

srEw.d Single precision floating point with exponent 2E13.3 

srFw.d Single precision floating point without exponent F7.3 

srGw.d Single precision floating point with or without exponent 


G14.6 

srDw.d Double precision floating point with exponent 2D10.4 

rlw Decimal integer conversion 419 

rLw Logical conversion 2L5 

rAw Alphanumeric conversion A7 

rRw Alphanumeric conversion 4R10 

rOw Octal integer conversion 05 

s optional scale factor of the form: 

nPDw.d 2PD18.7 

nPEw.d 3PE20.2 

nPFw.d -1PF13.6 

nPGw.d 1PG16.2 

nP OP 
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Form 


nX 

nH . . . 

/ 

Tn 


Examples 

r repetition factor 

w integer constant indicating field width 


d integer constant indicating digits to right of decimal point 


Intraline spacing 


9X 


| Hollerith 


8H THE END 
TINIS* 

* TEST 7 * 


Format field separator; 
indicates end of 
FORTRAN record 

Column tabulation 


T10 
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OVERLAYS AND DEBUGGING STATEMENTS 


Form 

(Examples 

Overlays 

CALL OVERLAY (fname,i,j,recall,k) 



CALL OVERLAY (4HTEST.1,0,6HRECALL) 


i primary overlay number 

j secondary overlay number 

recall if 6HRECALL is specified, an overlay already in memory is 
not reloaded 

k L format Hollerith constant: name of library containing overlay 


any other non-zero value: overlay loaded from global library 
set j 


OVERLAY (fname,i,j,Cn) 


OVERLAY (TEST,0,0,05500) 


primary overlay number, octal 


secondary overlay number, octal 


Cn n is 6 octal digits indicating start of load relative to blank 
common 


Debug 

The D option on FTN control card selects debugging mode; if it is not 
specified, debugging cards are treated as comments. 

DEBUG statements are written in columns 7—72; columns 1 and 2 of 
each statement must contain C$. Any character, other than blank or 
zero, in column 6 denotes a continuation line. Columns 3, 4, and 5 of a 
continuation line must be blank. 


c$ 

DEBUG 


c$ 

DEBUG (name 1 , . 

. . ,name n ) 

c$ 

AREA bounds.,, . 

. . ,bounds n 

c$ 

DEBUG 



within program unit 
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c$ 

AREA/name,/bounds,, . . . ,bounds n , . . . 
/name n /bounds,, . . . ,bounds n 

\ external 

c$ 

DEBUG (name,, . . . ,name p ) 

/ debug 


or 

\ deck 

c$ 

DEBUG 

) 


bounds (n.,,n 2 ) n-j initial line position; n 2 terminal line position 
(n 3 ) n 3 single line position to be debugged 
(n.,,*) n 1 initial line position; * last line of program 
(*,n 2 ) * first line of program; n 2 terminal line position 

(*,*) first and last lines of program 


C$ 

ARRAYS (a,, . . . ,a p ) 

C$ 

ARRAYS 


aj array names 

c$ 

CALLS (s,.s n ) 

c$ 

CALLS 


Sj subroutine narr 

c$ 

FUNCS (a,, . . . ,a n ) 

c$ 

FUNCS 


fj function name 

c$ 

GOTOS 

c$ 

NOGO 

c$ 

STORES (c,, . . . ,c n ) 


Cj variable name 

variable name .relational operator, constant 
variable name .relational operator, variable name 
variable name .checking operator. 

checking operators: 

RANGE out of range 

INDEF indefinite 

VALID out of range or indefinite 
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I 


c$ TRACE (Iv) 

C$ TRACE 

Iv level number: 

0 tracing outside DO loops 

n tracing up to and including levei n in DO 

nest 


c$ 

OFF 


c$ 

OFF (x-|, . 

• • ,x n ] 


Xj any debug option 

PRINTER CONTROL CHARACTERS 


Character 

Action 

Blank 

Space vertically one line then print 

0 

Space vertically two lines then print 

1 

Eject to first line of next page before printing 

+ 

No advance before printing; allows overprinting 

Any other 
character 

Refer to SCOPE Reference Manual 
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Y=SIN(X) 

DOUBLE D,E 
E=DSIN(D) 
COMPLEX CC,F 
CC=CSIN(CD) 

X=COS(Y) 

DOUBLE D,E 
E=DCOS(D) 
COMPLEX CC,F 
CC=CCOS(F) 

< 

X 

z 

< 

' 1— 

II 

CQ 

Y=SQRT(X) 
DOUBLE D,E 
E=DSQRT(D) 
COMPLEX CC,F 
CC=CSQRT(F) 

X 

X 


X 

CD ® 

OJ aj 


CD OJ 

J3 Ol 

_Q 9r 


X2 Or 

15 =3 E 

15 3 E 


15 3 E 

CD O o 

CD O O 


CD O o 

GC Q O 

DC Q O 

DC 

DC Cl O 

X 

X 


X 

OJ ® 

m V 


CD OJ 

5 Q- 

IE °r 


-Q 9r 

15 3 E 

15 3 £ 


ro 2 E 

CD O O 

as O o 

CD 

CD O O 

H Q O 

DC O O 

DC 

DC Cl O 





_ 

CO CO 

X 

1— cc QC 


co O O 

z: 

dc a a 

z C n co 

o o o 

< 

a w co 

co Q O 

O Q O 

. i- 

co Q cj 

- - - 

" - 


- - - 



< 


< 

< 

' ’ 


_c 

o 

C 

cu 

< 


a 





a 


6 

c a 

6 

c a a> 

"5 

-Q c 

CD 

§, h aj 

o -z .E 

Q. P 5 

E“ o 

CD c 

2 o 


a- o 

1 — E co 

H E o 

X |- 

CO DC 
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FORTRAN LIBRARY: BASIC EXTERNAL FUNCTIONS (continued) 


I 
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t The function DMOD (x1,x2) is defined as xl- Ix1/x2 1x2, where Ixl is the largest integer that does not exceed the magnitude of 
x with sign the same as x. 
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LIBRARY SUBROUTINES AND FUNCTIONS 

The following utility subprograms are supplied by the system. ANSI does 
not specify any library subroutines. 

Functions 

RANF (n) Random number generator 

LOCF (a) Returns address of a 


UNIT 

(u) 

Returns buffer status on unit, u 

-1 

Unit ready, no error 


+0 

Unit ready, EOF 
encountered 


+ 1 

Unit ready, parity error 
encountered 


EOF ( 

u) 

Checks for end of file 

0 

No end of file 



encountered 

LENGTH) (u) Returns number of words read on 

previous buffer or mass storage 
input/output request 

IOCFIEC (u) Returns parity status on non¬ 

buffer unit 

0 No read parity error 

LEGVAR (a) Checks variable a 

-1 Indefinite 
+ 1 Out of range 
0 Normal 
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Subroutines 

CALL DUMP (a 1 ,b 1 ,f 1 .a n ,b n ,f n ) 


Dumps storage and termi¬ 
nates program execution 


CALL PDUMP (a 1 ,b 1 ,f 1 , . . . ,a n ,b n ,f n ) Dumps storage and returns 

control to calling program 

a first word i of storage area 

b last word j to be dumped 

f = 0 or 3, octal dump 


f = 1, real dump 


f = 2, integer dump 
f = 4, octal dump 
CALL SSWTCH (ij) 



Sense switch test 


i 1 to 6. Integer variable or constant 

j set to 1 if i is on; 2 if i is off. Integer variable 

CALL REMARK (H) Dayfile message 

H Hollerith specification 
< 80 characters 


CALL DISPLA (H,k) 

H Hollerith specification 
< 80 characters 

k Variable or expression 

CALL RANGET (n) 

n Symbolic name to receive seed 

CALL RANSET (n) 

n Dummy argument 


Displays name and value 


Current value of RAN F 


Initial value of RANF 
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tSECOND(t) or CALL SECOND (t) Elapsed central processor 

time 

tDATE(a) or CALL DATE (a) Returns current date in for¬ 

mat bMM/DD/YYb 

tTIME(a) or CALL TIME (a) Returns current time in for¬ 

mat HH.MM.SS 

CALL ERRSET (a,b) Maximum number of errors 

Sets maximum number of errors, 
b, before fatal termination; count 
is kept in a. 

CALL LABEL (a,u) Tape label information 

CALL MOV LEV (a,b,n) Moves data between extend¬ 

ed core storage and central 
memory, or SCM and LCM 

a and b Variables or array elements 

n Integer constant or expression 

Transfers n consecutive words of data between a and b. 
a is starting address of the data to be moved and b is 
starting address of receiving location. 

CALL OPENMS (u,ix,lngth,t) Opens mass storage file 

CALL READMS (u,fwa,n,k) Transmits data from mass 

storage to central memory 

CALL WRITMS (u,fwa,n,k,r,s) Transmits data from central 

memory to mass storage 

CALL STINDX (u,ix,ingth,t) Changes file index in central 

memory to base specified in 
call 

CALL CLOSMS (u) Writes index from central 

memory to file and closes 
file 

tSECOND, TIME and DATE can be used as functions or subroutines. 

The value is always returned via the argument and the normal function 

return. 
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Unit number 


ix First word address in central memory of index 

Ingth Length of index buffer: Number index, Ingth > (number 
of records in file) +1; name index, Ingth > 2* (number 
of records in file) +1 


t Index type: Number index 0; name index 1 

fwa First word address in central memory of data buffer area 

n Number of 60-bit words in data record to be transferred 

k Index key: Number index 1 < k < Ingth—-1; name index, 

k may refer to any 60-bit quantity except ±0 

r Rewrite in place request 

r = +1 in-place rewrite 

r = -1 in-place rewrite if new record length does not 
exceed old record length; otherwise, write at 
end-of-information 

r = 0 normal write at end-of-information 

Parameter may be omitted if no subindex flag parameter 
is required. Default value is zero (normal write). 

s Subindex flag, may be omitted; default value is zero. 

s = 1 index control word entry for record contains a 
special subindex marker flag 

s = 0 subindex marker flag is not included in control 
word 
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SAMPLE DECK STRUCTURES 

FORTRAN SOURCE PROGRAM WITH SCOPE 
CONTROL CARDS 

In the following sample deck SCOPE control cards are shaded. Refer to 
the SCOPE Reference Manual for details of these cards. 



FORTRAN statements 


SUBROUTINE RVIE (C,J,L) 


FORTRAN statements 


FUNCTION RTSM (A,B) 


FORTRAN 
. SOURCE 
PROGRAM 
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COMPILATION ONLY 



t Q-Full semantic and syntactic scan X-Warnings printed for 
of program. All diagnostics and non-ANSI usage 

complete reference map printed 


COMPILATION AND EXECUTION 
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FORTRAN COMPILATION WITH COMPASS 
ASSEMBLY AND EXECUTION 


FORTRAN and COMPASS program unit source decks can be in any 
order. COMPASS source decks must begin with a card containing the 
word IDENTb in columns 11—16 and terminate with a card containing 
the word ENDb in columns 11-14 (b denotes a blank). Columns 1-10 
of the I DENT and END cards must be blank. ' 



L - Source program X - ANSI diagnostics 

diagnostics, and listed 

short reference 
map listed 
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COMPILE AND EXECUTE WITH FORTRAN 
SUBROUTINE AND COMPASS SUBPROGRAM 
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COMPILE AND PRODUCE BINARY CARDS 



0PT=2 specifies 




LOAD AND EXECUTE BINARY PROGRAM 
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COMPILE AND EXECUTE WITH RELOCATABLE 
BINARY DECK 





COMPILE ONCE AND EXECUTE WITH 
DIFFERENT DATA DECKS 



two separate files; 
data #1 will be on 
TAPE1, data #2 
on TAPE2. 
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PREPARATION OF OVERLAYS 


I 
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COMPILATION AND TWO EXECUTIONS 
WITH OVERLAYS 
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INTERSPERSED DEBUGGING STATEMENTS 


Debug 

Cards 


Debug 

Cards 



Debugging cards are interspersed; they are inserted at the point in the 
program where they will be activated. 
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EXTERNAL DEBUGGING DECK 


/T 

7 

8 
9 



The external debugging deck is placed immediately in front of the first 
source line. All program units (here. Program A and Subroutine B) will 
be debugged (unless limiting bounds are specified in the deck). This 
positioning is particularly useful when a program is to be run for the 
first time, since it ensures that all program units will be debugged. 
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INTERNAL DEBUGGING DECK 



When the debugging deck is placed immediately after the program name 
card and before any specification statements, all statements in the pro¬ 
gram unit will be debugged (unless limiting bounds are specified in the 
deck); no statements in other program units will be debugged. This 
positioning is best when the job is composed of several program units 
known to be free of bugs and one unit that is new or known to have 
bugs. 
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EXTERNAL 


DECK ON SEPARATE FILE 



FTN (l=TAPE1,D) 
Compiler 



FTN (D= TAPE1) 
Compiler 


O 


The debugging deck is placed on a separate file (external debugging 
deck) named by the D parameter on the FTN control card and called in 
during compilation. All program units will be debugged (unless the pro¬ 
gram units to be debugged are specified in the deck). This positioning is 
useful when several jobs can be processed using the same debugging deck. * 
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FORTRAN CONTROL CARD 


FTN. comments 

FTN (p.,, . . . ,p n ) comments 

FTN,p 1 , . . . ,p n . comments 

The optional parameters, p 1 , . . . ,p n , may appear in any order within 
the parentheses. All parameters, with the exception of the list control 
options, must be separated by commas. 

FTN. is equivalent to FTN (l=INPUT,L=OUTPUT,B=LGO,S=SYSTEXT, 
R=1,OPT=1). 


Parameters 

I SOURCE INPUT PARAMETER (Default l=INPUT) 


l=lfn 

Ifn is name of source input file; this form must be 
used if source input file is other than INPUT. 

l=INPUT 

Source input is on file INPUT 

1 only 

Source input is on file COMPILE 


Compilation stops when an end-of-record (section) 
or end-of-file (partition) is encountered. 


B BINARY OBJECT FILE 


(Default B=LGO) 


B Generated binary object code is output on file 

LGO. 


B=lfn Generated binary object code is output on file Ifn. 

B=0 No binary object file is produced. 


G=lfn \ 

BG=lfn ( Binary object file is loaded and executed at end of 

GB=lfn ( compilation 

G ' 
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L LIST CONTROL 


(Default L=OUTPUT, R=1) 


y=lfn y is the type of listing of the source program; any 

combination of one to four options selected from 
L 0 R X N. Commas must not be used; X and N 
cannot be specified at the same time. If no options 
are specified, the source program with informative 
and fatal diagnostics is listed. If no file is specified, 
OUTPUT is assumed. 

Ifn is file to receive output listing. 

L=lfn Source program, diagnostics, and short reference 

map listed (default listing). 

L L defaults to LOUTPUT. 


L=0 or LR=0 Fatal diagnostics and the statements which caused 
them are listed, all other output, including inter¬ 
mixed COMPASS, is suppressed. 

L=0,R=1 Level 1 reference map \ fatal diagnostics and state¬ 
ly, R=2 - Level 2 reference map > ments which caused them 

L=0,R=3 Level 3 reference map ) are suppressed. 

0=lfn Generated object code listed; 0 must not be used if 

E option is selected. 


R=lfn 

X-lfn 


N=lfn 


Example: 


Symbolic reference map listed. 

A warning diagnostic is listed for any non-ANSI 
usage. 

Listing of informative diagnostics is suppressed; only 
diagnostics fatal to execution are listed. 


LRON = Ifn specifies all options except non-ANSI diagnostics are to be 
listed; LO selects source program and generated object code listing on 
OUTPUT. 


E EDITING PARAMETER (Default E=COMPS) 

E or E=lfn Compiler generated object code is output as COM¬ 

PASS card images for the SCOPE maintenance 
program UPDATE. If E is omitted, normal binary 
object file is produced. 0 and C options must not 
be specified if E is selected. 


48 



An object code output file is delimited with the card 
images: *DECK, name and *END (name identifies 
the program unit). 

The object code output file Ifn or COMPS is re¬ 
wound and ready as UPDATE input. No binary file 
is produced. COMPASS is not called automatically. 
When the COMPS file is assembled S = FTNMAC 
must be specified on the COMPASS control card. 

T ERROR TRACEBACK (Default T omitted) 

T Calls to library functions are made with call-by-name 

sequence. Error checking is maximum with full error 
traceback. 

T omitted Call-by-value linkages are generated. Error checking 

is minimum; no traceback occurs. Saves memory 
space and execution time. 

Selecting the D parameter or OPT=0 automatically selects T. 

ROUNDED ARITHMETIC SWITCH (Default: arithmetic not rounded) 

ROUND=op op is arithmetic operator: + - */. Single precision 
(real and complex) floating point arithmetic opera¬ 
tions use hardware rounding features. Any combi¬ 
nation of arithmetic operators can be specified. For 
example: ROUND = + -/ 


D DEBUGGING MODE PARAMETER 

D or D=lfn If the debug facility is used, D or D=lfn must be 

specified, and fast compilation (OPT=0) and full 
error traceback (T option) are automatic. When the 
debug parameter is selected, any optimization level 
other than OPT=0 is ignored. A minimum field 
length of 61000 should be specified on the SCOPE 
control card. 

Ifn names the file containing the user debug deck. 
Default option for D=lfn is D=INPUT. 

FTN(D) is equivalent to FTN(D=INPUT,OPT=0,T) 
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A EXIT PARAMETER 


A If fatal errors occur, compilation terminates and a 

branch is made to an EXIT(S) control card. If no 
EXIT(S) control card appears, the job terminates. 


Note: S, GT and SYSEDIT parameters are of interest primarily to 
system programmers. 

S SYSTEM TEXT FILE {Default S=SYSTEXT) 


S=lfn Source of systems text information for intermixed 

COMPASS assemblies is on file Ifn. 

If the GT parameter is GT=0 only, or GT is omitted, 
the overlay named SYSTEXT is loaded. If para¬ 
meter is omitted, information is on SYSTEXT 
overlay. 

S=0 When COMPASS is called to assemble intermixed 

COMPASS programs, it will not read in a system 
text file. 


S=ovlname The system text overlay, ovlname, is loaded from 
the job's current library set. 

S=libname/ The system text overlay, ovlname, is loaded from 

ovlname the library, libname. Libname can be a user library 

file or a system library. 


GT GET SYSTEM TEXT FILE 


GT=lfn 

Ifn is sequential binary file, loads first system text 
overlay. 

GT=lfn/ 

ovlname 

Searches Ifn for system text overlay named ovlname, 
and loads the first encountered. 

GT=0 or 

omitted 

No system text is loaded. 

Any combination of the GT, S and C parameters must not specify more 
than seven system texts. 
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SYSEDIT SYSTEM EDITING 


(Default SYSEDIT not selected) 


This option is used mainly for system resident programs. 


SYSEDIT 

or 

SYSEDIT=FI LES 
and 

SYSEDIT=I DENT 


All input/output references are accomplished in¬ 
directly through a table search at object time. 
File names are not entry points in main program, 
and subprograms do not produce external refer¬ 
ences to the file name. 


The I DENT specification causes a $ sign to be 
suffixed to the program name in both I DENT 
and ENTRY cards if it duplicates the program 
name of any FORTRAN object library program. 


V SMALL BUFFERS OPTION 

V Compiler uses 513-word buffers for intermediate 

files. Programs with a large number of specifica¬ 
tions are compiled with a smaller field length 
under this option. Since less space is used in the 
buffers, compile time may increase. On a 7600 
control card, V will be ignored. 


C COMPASS ASSEMBLY 

C The COMPASS assembler is used for code gener¬ 

ated by FTN. If C is omitted, the faster FTN 
assembler is used. When C is specified, FTN MAC 
is supplied as additional text for the COMPASS 
assembly; therefore, no more than six system 
texts can be specified by GT and S parameters. 
When C is specified, the SCOPE loader control 
card LDSET is required: 

LDSET (LIB=FORTRAN/SYSIO). 

R SYMBOLIC REFERENCE MAP (Default R=1) 

R=0 No map 

R=1 Short map (symbols, addresses, properties) 

R=2 Long map (symbols, addresses, properties, refer¬ 

ences by line number and a DO-loop map) 

R=3 Long map with printout of common block mem¬ 

bers and equivalence groups 
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PL PRINT LIMIT 


(Default n=5000) 


PL=n n is maximum number of records that can be 

written on OUTPUT file at execution time, n 
does not include the records in source program 
listing, nor compilation and execution time list¬ 
ings; n < 999 999 999 

PL=nB Octal number must be suffixed with a B; n < 

777 777 777B 


Q PROGRAM VERIFICATION 

Compiler performs full syntactic and semantic scan of the program and 
prints all diagnostics, but no object code is produced, A complete refer¬ 
ence map is produced (with exception of code addresses). This mode is 
substantially faster than a normal compilation; but it should not be 
selected iTthe program is to be executed. If G is omitted, normal com¬ 
pilation takes place. 


Z ZERO PARAMETER 

Z All subroutine calls with no parameters are forced 

to pass a parameter list consisting of a zero word. 
This feature is useful only to COMPASS subrou¬ 
tines expecting a variable number of parameters 
(0 to 63). For example, CALL DUMP dumps 
storage on the OUTPUT file and terminates pro¬ 
gram execution. If no parameters are specified, a 
zero word parameter is passed. Z should not be 
specified unless necessary, as execution is more 
efficient when Z is omitted. 


LCM LARGE CORE MEMORY ACCESS (Default LCM=D) 

LCM=D Selects 17-bit address mode for level 2 data (most 

efficient method for generating code for data as¬ 
signed to level 2). User LCM field length must 
not exceed 131,071 words. 

LCM=I Selects 21-bit address mode for level 2 data; this 

mode depends heavily upon indirect addressing. 
LCM=I must be specified if user LCM field length 
exceeds 131,071 words. 

In neither case can a single common block be 
greater than 131,071 decimal words. 
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OPT OPTIMIZATION PARAMETER 

OPT=m 

m =0 Fast compilation (automatically selects T option) 

m=1 Standard compilation and execution 

m=2 Fast execution 
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